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internal rms structure definitions 


3 $@¢ 30-Aug-1984 
L code tes an a a EBK/HBK value. 
2 
k 


J & Johnson 04-Apr-1984 
en ontar alignment in previous change. 


0010 J E Johnso 19-Mar-1984 
d GBHS$L_OUTBUFQU0 to count the number of times that 
a global Section exceeds the GBLBUFQUO sysgen Limit. 


DGB0005 Donald G. Blair 28-F eb-1984 

Add IFBSB_AGENT_MODE. 
wT0150 Jim Teague 02-Feb-1984 

Add 1FBSW BUFFER OFFSETS 

$HZ0005 Stephen H. Zalewski 06-Dec-1983 
Add new FIL definition. 
JWT0141 Jim Teague 11-Nov-1983 
Change IFBSV_RUM to IFBSV_ONLY_RU 
KBT0566 Keith B. veneers 26-Jul-1983 
Change the flag V_NWA to V_FILEFOUND 
$HZ20004 Stephen H. Zalewski 28-Jun-1983 
Add several new FIL codes. 
KPLO004 Peter Lieberwirth 21-Jun-1983 
Add new FTL code. Last few edits had wrong ident. 
KPLO003 Peter Lieberwirth 20-Jun-1983 
Mung JNLFLGs fields. 
$H20003 hen H. Zalewski 20-Jun-1983 


Add new fields = 1 BDEF, GBHDEF and GBDDEF for cluster 
global buffers. Also remove obsolete rms failure codes. 


KPL0022 Peter Lieberwirth 26-May-1983 
Add more journaling flags{ a second byte in the IFB and 

a byte in the IRB. First use is a flag to indicate that 
a valid AT journal entry exists for the IFB/IRB operation 
and should be flushed. Also, move IFBSC_BLN_SEQ past all 
the common Journal tna structures. 


KPL0021 Peter Lieberwirth 13-May-1983 
Increase size of ASB used for FAB operations. 
KPL0020 Peter Lieberwirth 1-May-1983 
Align MJB. 


2 


RMS 
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v03-056 


v03-055 


v03-054 


v03-053 


v03-052 


v03-051 


v03-050 


v03-049 


v03-048 


v03-047 


v03-046 


v03-045 


v03-044 


v03-043 
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KPLO019 Peter Lieberwirth 30-Apr-1983 
Add some MJB flags. 
KPLOO18 Peter Lieberwirth 29-Apr-1983 


Add MJB definition. The Miscellaneous Journal Buffer 
is used to write out misc. journal entries. 
individual fields for journal channels in RJB channel 
quadword. 


KPLO017 Peter Lieberwirth 28-Apr-1983 
Add pointer to audit trail journaling buffer (ATJNLBUF) 
in IFB and IRB. Add perater to journaling buffer used 
for EXTENDs in IFB (EXTJNLBUF). 


JWHO209 Jeffrey W. Horn 12-Apr-1983 
Remove mapping sequence numbers from the RJB. 

Also had to replace the source because of compare 
buffer overflow. 


JWHO197 Jeffrey W. Horn 21-Mar-1983 
Add FLB, the File Lock Block, to save the file 
lock in the RULOCK List. 


RASO130 Ron Schaefer 14-Mar-1983 
Change BDB structure for more general space utilization{ 
add BDBSL_ALLOC_ADDR and BDBSW_ALLOC_SIZE fields. 

Revise 8DB journaling fields aS well” (JWHO184). 


DASO003 David Soiomon 18-Feb-1983 
Add RLB fields for timeout on record lock. 


JWh?184 got trey WwW. Horn 10-Feb-1983 
Added BDBS$L_BI_ADDR, BDBSL_AI_ADDR, BDB$W_BI_SIZE, and 
BOBSW_AI_SIZE{"re-definitions of other BDB fields which 
describe the isam journaling BDB. 


DASO001 David Solomon 26-Jan-1983 
Add IDX$C_SGNQUAD, IDX$C_UNSGNQUAD for 64-bit binary keys. 


RASO120 Ron Schaefer 25-Jan-1983 
Add support to echo SYSSINPUT to SYSSOUTPUT: 
add bit IRBS$V_PPF_ECHO and field IFB$W_ECHO_ISI. 


JWHO170 Jeffrey W. Horn 18-Jan-1983 
Add the bit RLBSV_FAKE to the flag byte of the RLB. 
Add the bit IFBSV_RU_RLK to IFBS$B_JNLFLG. 


TMKO010 Todd M. Katz 14-Jan-1983 
ose + IRB$V_NO_Q_WAIT to the bookkeeping bit field of 
e : 


TMKOO09 Todd M. Katz 12-Jan-1983 
one +) a IRB$V_RU_UPDATE to the bookkeeping bit field of 
€ . 


LJA0053 Laurie J. Anderson 12-Jan-1983 
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{ 
{ 
{ 
{ 
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Add SHR field to IFB and add MBF field to IRB 


v03-042 LJA0049 Laurie J. Anderson 10-Jan-1983 
af LJA0045 to make ISI/IFI a word not byte. 
v03-041 KBT0452 h B. Thompson 6-jan-1983 
Make ifab leneuerd aligned 
v0O3-040 $HZ000 Stephen H. Zalewski 5-Dec-1982 
Moved ifb$l_hbk ana” ifb$l_ebk out of file header area of ifb 
and replaced them with ifBSl hbk disk and ifb$l_ebk_disk. 


Removed ebkO and ebk2 subfields from ifb. 


V03-039 KBT0444 Keith B. Thom Dec-1982 
ncrease size o the name butler in the > yaa be. 
n the cache node (DRC$) 


v03-038 TMKO008 Todd 22-Dec-1982 
Add the ate nes th bevete and IRB$V_RU UNDEL to 
bookkeepi field’ of the IRAB. Also add the fie 
IRBSL_O DB F yt the IRAB. 


Add the field IFBSB_RECVRFLGS to the IFAB, and define several 
of the bits within this field. Set the constant IFBSC_KBUFNUM 
to 6 so that only six keybuf fers will be allocated. 


v03-037 LJA0045 e J. Anderson 21-Dec-1982 
Add IFI/ISI field” to y x. IFB/IRB for context extraction S$DISPLAY 


v03-036 KBT0422 Keith B. Thom 30-Nov-1982 
Change ifb$w_ Sovbatala to ifb t “devoutsiz and ifb$w_asdevbsiz 
to ifb$l_asdévbsiz 


v03-035 LJA0041 Laurie J. Anderson 30-Nov-1982 
Add ifb$c_kbufnum - As a constant of the number of key 
buffers allocated. 


th 
ld 


v03-034 KBT0404 Keith B. Thompson 23-Nov-1982 
Add fwa_ptr to ifab 
v03-033 KBT0401 Keith B. Thompson 9-Nov-1982 
Make ISAM ASB haenas again. 
v03-032 KBT0399 Keith B. Thompson 


4-0c t-1982 
Remvove FWA definitions and put them in RNSFWADEF. MDL 
and add 32 more oi to the asb isam stack. 


v03-031 MCNO009 adel C. Nasr 29-0c t-1982 
KEY_COMPR flag ay ae index See CUNT DUP can be dot ined 
forall keys Also eliminate COUN NORFA, and 

PRG_D_RFA lags since they are not Feferenced. 


v03-030 KBT0384 Keith 8. Thompson | 26-0c t-1982 
Make asb$l_argcnt } y aH field again 


AAA AAARAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPAAAAAAAAARAAAAA 
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v03-029 KPLOO16 Peter Lieberwirth 26-0c¢t-1982 
Move RMS Journaling and Recovery structures RJR and RMSR 
to RMSJNLSTR, MDL. 

v03-028 KBT0368 Keith B. Thompson 14-0¢t-1982 
Add new asb fields 

v03-027 JWHO111 otis sx 29-Sep-1982 
Bocrout hy bet tM 1 “mabe” FWAST_xxJNLN t5 be 

A strings. Implement new RJR tormat. Add RMSR 

detin tions. Standardize format of RJB. 

v03-026 KBT0361 Keith B. Thompson 6-0ct-1982 
Make asb$b_stksz a — field 

v03-025 JWHO106 22-Sep-1982 


Add IFBSV MKC i" “frees. INLECG to indicate file is 
marked as ‘closed 


v03-024 xB10342 Keith 8. Thompson oeontho -1982 
Make ASB 7 sahaabe bigger and Ceckout JWHO102 


v03-023 JwHO102 rey W. Horn 20-Sep-1982 
Add the field irae th OCK which points to a SFSB to hold 
a lock-manager lock™on files opened non-shared and which 
can be recovery-unit journaled. 


vO3-022 TMKO007 Todd M. K Via Sope ieee 
Add the bit IRBSV_LAST “or to the IRAB field IRBSW_SRCHFLAGS. 
v03-021 KBT0326 Keith B. Thompson 17-Sep-1982 


Remove frb_ptr are other related sO shareing stuff and 
add stall_Tock f 


v03-020 JwHO100 Jeffrey W. Horn opel? 
poner tee * — “SNLAC to include FWAsO. ath te ALJNL 
and F ATJNL So that the journal name “Lengths get written 
with _ Journal names. 


v03-019 JwWHO007 Jeffrey W. Horn 16-Sep-1982 
Add support for Mai tttest; Unit locking: 
ae . IDENT, a process-wide unique identifier 
or a 


IRB. 
2. change e RLBSW_ OWNER te RLBSL_OWNER, which pitt now 
he value of IRBSL_IDENT instead of the ISI. 
- Add RLBSV_CONV to indizate lock ooo B to ys 
converted to fiew mode, ; s 
4. Add RLBSV_LV2 a flag to indicate ‘‘level-2"' RU 
record locking consistancy. 


v03-018 TMKO006 Todd M. Katz 08-Sep-1982 
lean up the defin tions of some fields in the index descriptor 
definition, as they pertain to prologue 3 SIDRs. 


Make the field IRBSB_SRCHFLAGS a word, and shift some of the 
other fields around. Making this field a word allows 
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IRBS$V_DE EN be en its own bit instead of redefining a 
ait 3! (TREOOOTS Also o def giyen a bit IRBSV_DUP_KEY on ees sone” 
v03-017 TMKO00S Todd M 19-Aug-1982 
Eliminate the field IRaSB. biFF CHAR, 
v03-016 $HZ0001 Stephen H. Zalewski, 11-Aug-1982 21:26 
Add a pointer to the GBSB (Global Buffer Sync ronization 


Block) in the IFAB. Made GBH quadword aligned. 


M 7 
RMSINTSTR.SDL;1 16-SEP-1984 16:44:26.66 Page 7 


treet 


NOTE: ALL blocks MUST be Longword aligned. 
NOTE: ALL blocks Cnet are ar eraser the buffer mgnogenens routine 
ey BS a byte block size field as byte 9 from the start 
ock. 


{arene 
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f IFB field definitions 
Internal fab (ifb) 


module SIFBDEF; 


/t 


ak es IFBDEF structure fill prefix IFBS; 
F “er union fill; 
1 gyegvore Fill prefix IFBDEF tag $$; 


atte ITS structure 


BUSY bitfield; 

EOF bitfield; 
PPF_IMAGE bitfield; 
NC bitfield; 
ASYNCWAIT bitfield; 
ACCESSED bitfield: 
ANSI_D bitfield; 

RWC Bitfield; 

DMO bitfield: 

SPL bitfield: 

SCF bitfield: 

DLT bitfield: 

DFW bitfield: 

$Q0 bitfield: 
PPF_INPUT bitfield; 
NFS" bitfield: 
WRTACC bitfield; 
MSE bitfield: 
CREATE bitfield; 
NORECLK bitfield; 
RW_ATIR bitfield; 
TMP bitfield; 

TEF bitfield: 


/* 


; 
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t There is one ifab (internal file access block) per open file 


a NOTE: The fields thru JNLBDB inclusive are common between the ifb and irb 


device characteristic and bookkeeping bit vectors 


fill; 
FICL_2 bitfield Length 32 fill prefix IFBDEF 7,3 $$; rs bookkeeping bits start in longword 2 


have definitions that allow them to 
ibe. referenced from the start of the ifab) 


the ren tovity atts Di defined in 
common with the 


stream busy 

file positioned at eof 

flag for indirect processing of process- 

persenent files (restricts allowable operations) 
nc i/o flag (must be zero for b) 

wa t on async i/o (must be zero for ifab) 


ifab specific bits 


file is accessed 
ansi d variable records 
copy of fop bit from open 
copy of fop bit from open 
copy of fop bit from open 
copy of fop bit from oes 
y of fop bit fromo 

deferred yr ite (copy Yen bit from S$open) 

segues tat operations only 

s is command ‘input' stress 
reatelie structured flag 
sogtens | «4 of ol ennee! 
. trn 
mu ticstheans” enabled = 
set if doing create smay be be ‘create if'’) 
rycere locking not require 
no shared access or  sieteanenent 

ae "18 Fre ottrioutes must be re-uritten 
temporary file (i.e., no directory entry) 
truncate at eof due to large auto extend 
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/t 


STALL_LOCK bitfield; /* 
SEQFIC bitfield; /* 
SEARCH bitfield; /* 
RMS _ STALL bitfield; /* 
RESTART bitfield; /@ 
FILEFOUND bitfield; /* 
DAP_OPEN bitfield; /x 
DAP bitfield; /* 
NSP bitfield; /* 

end FILL_1 BITS; 

FILL_1_FYECDS structure fill; 
PRIM_DEV Longword unsigned; . 
BKPBITS Longword unsigned; /* 


end FILL_1 ieee 
end FILL. 1_OVERLAY 


BID byte “We lenedi : /* 
constant BID equals 11 prefix IFB tag $C; /* 
BLN byte unsigned; /* 
MODE byte _ gned; /* 
EFN 4 e unsigned; /* 
os OVERLAY kien” fill; 
“10S nun word unsigned; /* 
BWB_OVERLAY union fill; 


~Bua longword unsi gned; 
BWB_ FE DS structure fill; 
FIL byte dimension 2 fill prefix IFBDEF t 
“word unsigned; /* 


e 
end we OVERLAY; 


ASBADDR gk unsigned: /* 
ARGLST longword unsigned; /* 
RAB_LNK rs uns igned; /* 


FAC_OVERLAY ck eae fill; 


“FAC byte unsigned; /* 
FAC Bi structure fill; 
T bitfield mask; /* 
GET bitfield mask; 
DEL bitfield mask; 
UPD bitfield mask; 
TRN bitfield mask; 
BIO bitfield mask; 
BRO bitfield mask; 
EXE bitfield mask 
end FAC_BITS; 
/t 
/* 
/t 
/t 


end FAC_OVERLAY; 
ORGCASE byte unsi gned; /t 
LAST_FAB longword Fontenot /* 
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RMS is stalled for file lock 

this is really a sequential file being shared 
paore® ifab - left yr ing wv wildcard operations 
RMS is stalled on this f operation 

Reopen or recreate searation in progress 

A file was found on a search operation 
open/create function was performed via dap 
data access protocol transmission 

network services protocol transmission 


device characteristics bits 
(for primary device = bit encoding same as for fab) 
bookkeeping bits 


block id 

ifab id code 

block yereet in longwords 

caller's mo 

event flag uaed for synchronous qio 


internal i/o status block 
bucket wait block for inter stream waiting 


tag $$; p 
high word of io status block 


2nd longword of io status block 
address of asynchronous context block 
user call parameters addr 

pointer to irab(s) 

i/o channel number 


file access 
(same as in fab's fac field) 


note: if both bio and bro set, implies block i/o 
access only allowed for this connect, resets 
to bro on disconnect (seq. file org. only). 


copy of org for case dispatching 
address of fab for Last operation 
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IFl word unsigned; /* Internal file Identifier, the one we gave to the user 
ECHO_ISI word unsigned: /* ISI of stream to echo records from SYSSINPUT 
ATJNCBUF Longword unsigned; /* address of IFAB audit trail buffer 
JNLBDB Longword unsigned; /* address of Journaling BDB for FAB operations 
[tooeee reree 
EXTJNLBUF Longword unsigned; /* pointer to buffer to contain extend journal record 
FWA_PTR Longword unsigned; /* pointer to file work area control block 
NWA_PTR Longword unsigned; /* pointer to network work area control block 
BDB_FLNK longword unsigned; /* pointer to bdb(s) 
BDB_BLNK Longword unsigned; /* bdb backward Link 
DEVBUFSIZ Longword unsigned; /* device default (or bls if mt) buff size 
RTDEQ word unsigned; /* run-time default extend quantit 
SHR byte yre tence: /* File sharing bits from users FA 
AGENT_MODE byte unsigned; /* User's FABSV_FILE_MODE field, maximized with mode of caller 
/* 
{/teeeeeerene 
/t 
/* the following fields must remain as is since 
/* they correspond to the rms attributes stored 
fe in the file header 
a 
RFMORG_OVERLAY union fill; 
RFRORG Byte unsigned; /* organization and record format 
RFMORG BITS structure fill; ; . 
RFA bitfield Length 4; /* record format (n.b. constant values defined in rfm field of fab) 
ORG bitfield Length 4; /* file organization 
end RFMORG BITS; ‘ 
constant SEQ equals 0 prefix IFB tag $C; /* sequential 
constant REL equals 1 prefix IFB tag $C; /* relative 
constant IDX equals § prefix IFB tag $C; /* indexed 
constant DIR equals prefix IFB tag $C; /* direct ’ 
constant MAXORG equals 2 prefix IFB tag $C; /* release 1.5 maximum 
end RFMORG_OVERLAY; : 
RAT byte unsigned; /* record attributes (n.b. bit offsets defined in rat field of fab) 
LRL word unsigned; /* longest record's Length (or fixed record length) 
HBK_DISK lLongword unsigned; /* hi vbn allocated (note: disk format!) 
EBK_DISK i‘ongword unsigned; /* eof vbn (note: disk format!) 
FFB word unsigned; /* first free byfe in eof block 
BKS byte unsigned; /* bucket size (! vbns) 
FSZ byte unsigned; /* record header size for vfc 
MRS word unsigned; /* max record size allowable 
DEQ word unsigned; /* default extend quantity 
GBC word unsigned; /* global buffer count . 
constant FHAEND equals . prefix IFB$ tag K; /* end of file header attributes 
constant FHAEND equals . prerie IFB$ tag C; /* end of file header attributes 
FILL_4 word fill prefix IFBDEF tag $$; 
[toeeeo-ttett | 
| 
DRT_REHIT byte unsigned; /* hit count for local dirty buffers. 
GBL_REHIT byte unsigned; /* rehit count for gbl buffers 


constant KBUFNUM equals 6 prefix IFB tag $C; /* constant - the number of key buffers allocated 


D 
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FILL_5 word fill prefix IFBDEF tag $$; 
RNS -CEN OVERLAY union fill; 


] 
S“LEN Longword unsi ned; /* resultant name string Length (used as a temp rigte by $search) | 
4 batter uns gned; /* lock bdb address (used by Sextend for rel. file) 
en 
HBK Longword unsigned; /* hi vbn allocated. 
EBK Pre ton unsigned; /* eof vbn. 
ah PT ane ra lened: /* pointer to shared file synchronization block 
are unsigned; /* pointer to global buffer ayeepeve \2et tee block. 
PAR BrOLK. ib aoqvere unsigned; /* Parent lock ID for bucket locks (get from SFSB.) 
AVLUL word unsigned; /* local buffers available. 
AVGBPB word uns gned; /* gbl ptr blocks available. 
GBH_PTR Longword “unsigned; /* pointer to global header 
AS_BEV longword unsign /* assigned device characteristics 
FICL_6 Longword fill a IFBDEF tag $$; /* (spare) (* DO NOT RE-USE, porpeged when filling in 
/* AS_DEV and ASDEVBSIZ *) 
ASDEVBSIZ Longword unsigned; /* assigned device buffer gies 
BLBFLNK Longword unsigned; /* Forward Link to BLB chain 
BLBBLNK Longword unsigned; /* Back Link to BLB chain. 
JNLFLG_ OVERLAY union Till; 
JNCFLG byte unsigned; /* journaling attribute flags 
JNLFLG_BITS structure fill; 
ONCY_RU bitfield mask; /* Recovery anit Bran ie y no access outside RU 
RU bitfield mask; /* Becevery Un ournaling 
BI bitfield mask; /* Before need “journal ing 
Al bitfield mask; /* After jeage ouraling 
AT bitfield mask; /* Audit Trail journaling 
yey RU bitfield mask; /* never do RU journaling 
end JNLFLG BITS; 
end SNLFLG 0 VERLAY; 
RECVRFLGS OVERLAY inion fill; 
RECVRFLGS byte unsigned; /* Recovery flags 
RECVRFLGS BITS structure fill; 
RU_RECVR bitfield mask; /* Recovery Unit Rollback in progress 
ai Reeve bitfield mask; /* Al Roll Forward Recovery in progress 
 Rroatve sate mask; /* BI Roll Backward Recovery in progress 
end RECVRFLGS OVERLAY: 
JNLFLG2_OVERLAY union fill; 
JNLFL pyte unsigned; /* Secondary journaling flags (generally operation specific) 
man? BITS structure fill; 
ALTD AT bitfield mask; /* AT entry in IFB buffer is valid and should be written 
tC bittield mask; /* Journal ng nitialized for this file 
RUP P bitfield pace: /* Recovery Unit in yprogress 
~/ RLK bitfield m /* Fake record locki ng uring recovery unit 
cee Bit: bittietd mask; /* Journal channels already assigned 
end end IMFLG POOERCA 
pit 7 byte’ fill eritte IFBDEF tag $$; /t 5 spare 
RJB Tongword unsigned: /* 1 S Journaling Bt Block address 
BUFFER_OFFSET wor Ponat /* ANSI buffer o 


FILL_1T word fill pretit MTF aDEF tag $s /* poe | alignment 
constant BLN_SEQ equals . prefix IFB$ tag K; 
te constant BLN-SEQ equals . prefix IFB$ tag C: 


/*t 


organization-dependent fields 

/* the following fields are used differently 

. depending upon the file's organization 

{ree 

/t 

. relative org specific fields 

end IFBDEF; 

overepate IFBDEF1 structure fill prefix IFB$; 
FILL_9 byte dimension 172 fill prefix IFBDEF tag $$; 
MRN Tongword unsigned; / 
constant BLN_REL equals . prefix IFB$ tag K; 

re constant BLN_REL equals . prefix IFB$ tag C; 

{eee 

/* 

a indexed org specific fields 

® 
end IFBDEF1; 


aggregate FADEF2 structure fill prette IFB$; 
FILL_1 I 


ton 


/ 

end IFBDEF2; 
end_moduie SIFBDEF; 
module SIRBDEF ; 
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(rel) max record number 
DVBN Longword unsigned; /* (rel) first data bucket vbn 


pointer to primary ney index descriptor 
p 


tor 


total number of area descriptors 


€ 
size for keys 


number of extra buffers for ‘cache'ing 


byte dimension 172 fill prefix IFBDEF tag $$; __ 

DX PTR longword unsigned; /* (idx) 
AVBN byte unsigned; /* (idx) vbn of 1st area descr 
AMAX eyte unsigned; /* (idx) 

KEYS byte unsigned; /* (idx) ! of aeye n 
UBUFSZ2 byte unsigned; /* (idx) update buffer 
KBUFSZ word unsigned; /* (idx) key buffer size 
EXTRABUF byte unsigned; /* (idx) 
PLG_VER byte unsigned; /* (idx) prologue version number 
constant BLN_IDX equals - prefix IFBS tag K; 
constant BLN_IDX equals . prefix IFB$ tag C; : 
constant BLN equals . prefix IFB$ tag K; /* ifab length 
constant BLN equals . prefix IFB$ tag C; /* ifab length 


/ 
/ 
/ 
/ 1 
/ 
/ 


* 
. 
® 


/* 


aggregate | 
" PItL 1 
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a 
~ IRB field definitions 


nternal rab (irb) 


BDEF structure fill prefix IRBS$; 


R 
OVERLAY union fill 


FICL_1 quadword fill prefix IRBDEF tag $$; 
FILL_1_BITSO structure fi 


ASYNC 


>o 


FIND_LAST 
PTS LAST 
BIO_CAST b 


-o°r 


_ 
Qa a 
ee ee 


-aacaene -—avd >: 
a 
ee 


oreo arn 
ee 


There is 1 irab per connected record access stream 
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is NOTE: The fields thru JNLBDB inclusive are common between the irb and ifb 


/* used to get bookkeeping bit definitions 
/* to apply from start of irab 


Ll; 
FICL_2 bitfield Length $2 fill prefix IRODEF tag $$;/* bookkeeping bits start in longword 2 


/* 


/* the res loving bits are defined in common 


. with the ifa 
® 
/* file busy 


/* stream positioned at eof 
/* flag for indirect processing of process- 


/* permanent file 


/* asynchronous i/o request 
/* $wait issued for asynchronous i/o request 


/+-- 


ie irab specific bits 


/* last operation was a find 


/* last operation was a put sequential 
/* note: this bit is set only if mixed bloc 


and record 


/* this/last operation is/was a block i/o operat ten 
Lt 


/* operations (bro access). after call to rm$rset 
/* refers to the current operation and bro_sw gives 
/* ype of last operation. 


/* operation is a 


save value for 


opera 


nd 


read ahead or write behind processing 
skip to next record flag for index fo 
duplicate records seen 

release lock on current (rp) record 

give one-shot rms$_eof error on sys$input 
ship syaS input record ($deck), redoing $get 
or $find on next record 


t 
/* switched from record operation to block i/o operation 


find bit when ppf_skip set 
index update error occurred 
rev uegate error occurred 

ion is an update (indexed) 
operation was a $PUT -> SUPDATE 
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| RP 
ABOVELCKD bitfield; /* level above was locked by search_tree | /* 
GBLBUFF bitfield; /* global buffers are in use. /* 
ON_EOF bitfield /* Tile positioned at EOF by SCONNECT (isam) | /* 
WAIT bittield; /* do not wait for enqueues on query locks 
PPF_ECHO bitfield; /* echo SYSSINPUT records to SYSSOUTPUT ag 
RMS_STALL OTe Tigse: /* RMS is stalled on this record operation 
RESTART bitfield; /* Reconnect operation in progress 
AP_CONN bitfield; /* connect function was performed via dap 
RU_BELETE bitfield; /* recovery unit deletion in progress 
RU_UNDEL bitfield; /* recovery unit un-deletion in regress 
U_UPDATE bitfield; /* place new record is special RU UPDATE format 
P end FICL_1_BITSO; 
® 
/* the fol Loving are alternate definitions for alternate 
es (non-conflicting) use of the above bits 
FILL.1_BITS1 structure fill; 
FICL_3A byte dimension 5 fill prefix IRBDEF tag $$; 
FILL 38 bitfield Length 1 fill prefix IRBDEF tag $$;/* start re-use with find 
WRITE bitfield; /* operation is a write 
end FILL_1_BITS1; 
FILL_1_FYECOS2 structure fill: 
TFAB_LNK Longword unsigned; /* pointer to ifab 
te BKPBITS Longword unsigned; /* bookkeeping status bits 
end FILL_1_FIELDS2; 
end FILL_1_OVERLAY; 
BID byte unsigned; ; /* block id 
constant BID equals 10 prefix IRB tag $C; /* irab code 
BLN byte uns toned: /* block Length in longwords 
MODE byte unsigned; /* cailer's mode 
EFN bye unsigned; /* event flag for synchronous io 
IOS_OVERLAY union fill; 
10S longword unsigned; /* internal i/o status block 
BWB_OVERLAY union fill; 
BWB longword unsigned; /* bucket wait block for inter stream locking 
BWB_FIELDS structure fill; 
FALL _10 byte dimension 2 fill prefix IRBDEF tag $$; 
10S2 word unsigned; /* high word of io status block 
end BWB : 
end BWB_OVERLAY; 
end I0S_OVERLAY; 
1084 songueré unsigned; /* jo status block (2nd Longword) 
ASBADDR longword unsigned; /* address of permanent asynchronous context block 
ARGLST Longword unsigned; /* user arg List address 
/* if async, points to copy at head 
/t of async context block 
IRAB_LNK longword unsigned; /* pointer to next irab 
CURBBB Longword unsigned; /* current bdb address 
LAST_RAB Longuore unsigned; /t address of rab for last operation 
ISI word uns gred: /* Internal stream Identifier, the one we gave to the user 
FILL 4 word fill prefix IRBDEF tag $$; /* spare - longword atten : ¥ 
ATJNCBUF Longword unsigned; /* address of [RAB audit trail journaling buffer 
pa JNLBDB lLongword unsigned; /* address of journaling BDB for RAB operations 
ececece eeene 


“IDENT’’ Longword unsigned; /* process unique identifier for the IRB 


RMSINTSTR.SDL;1 
RLB_LNK longword “une gpes: /* 
NXTBDB Lon jor s]pre% /* 
NRP_OVERLA 
“NRP tongvord. antes ed; /* 
NRP -Ve OVERLAY wien fill; 
P"VBN Longword unsi gned; /* 
NRP™ “VBN_ FIELDS Structore till; 
“gAchertes byte uns jned : /* 
STOPLEVEL OvER /* 
wane . ERLAY ye crt fill; 
S$ word unsigned; /* 
theta Age BITS eteyeture fill; 
BOS INSERT bitfield mask; /* 
SRCHGT bitfield mask; /* 
POSDELETE bitfield apeks /* 
NEW_IDX bitfield mask; /* 
SRCAGE bitfield mask; /* 
RLS_RNF bitfield mask; /* 
FIRST TIM bitfield mask; /* 
PRM bitfield mask; . 
® 
DUP_KEY bitfield mask; /* 
DEL_SEEN bitfield mask; : 
AST_GT bitfield mask; /* 
d SRCHFLAGS BITS; 
end SRCHFLAGS OVERLAY; 
end NRP_V FLELOSs 
end NRP VEN. “OVERLAY 
end NRP _OVERLA 
NRP_OFF-OVER AY * unten fiil; 
NRP-OFF Longword unsi ned; /* 
CURVBN OVERLAY union iUS 
VBN longword unsign /* 
NRP OFF OV ERLAY' un an “tits 
F word unsigned; /* 
SPL “BITS guys be union fill; 
“SPL te uns toned: /* 


FILE, = Ov avehay union fil 
byte fill patie IRBDEF tag 
Pitt. 6.0 mer union fill; 


H 
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pointer to RLBs 
next bdb address 


next record pointer (relative record number) 
next record pointer (relative) 


cacheflags for calls to getbkt,cache, etc. (indexed) 
level to stop at on tree search (indexed) 


search flags (indexed) 


position for insert 

approximate search gt 

position for delete 

need to read in new idx dsc from file 

approximate search ge 

don't release bkt on rnf error, if set 

flag to indicate ist time for seq. processing 

flag to paareate that the permanence bit in the bdb 
should be set 

a duplicate key seen on scan of any data bucket 

a deleted record has been encountetes between current 
and a next record during a $GET/ 

result of last search o Biddy cs bucket was GT 


next record pointer offset (relative) 
vbn of current record (relative) 
bits for splitting (indexed) 
$$;/* redefine bits 
tag $$; 
bit of pucker number reses 3 ing 


low 
noth “a; /* number of new bucket 


splitting at pos_insert a. rec goes w/ lo 
aidd e bucket is a Continuation bkt 

right bucket is a continuation bkt 

bucket contains no data records 

dups seen on scan of bucket, any key 


FiCL_6 6 byte fill prefix IRBDEF 
FILL~ TS structure pst Fe 
BET _NO_LO 1 be 
NEW-BKTS bitfield mask oa 
REC W_LO bitfield mask; /* i 
CONT_BKT bitfield mask: * 
CONT-R bitfield mask; /* 
EMPTY BKT bitfield mask;/* 
DUPS_SEEN bitfield mask;/* 
end FILL 6 BITS; 
Lt_5 BITS structure fill; 
BKT_NO bitfield mask length 2; 
BIG SPLIT bitfield mask; 
end FILC_5 BITS; 
FILL_6_BITS structure fill; 


] 
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SPL_IDX bitfield mask; /* split up new index record and swing pointer 
fees ENT. i Had eld mask; /* empty bucket passed over on posinsert 
end FALL OVERLAY; 
end FILL_5 OVERLAY; 
end SPL_BITS OVERLAY; 
end NRP_OFF-OVERCAY1; 
end CURVBN OVERLAY; 
end NRP OF F_OVERLAY 


RP_OVERCAY Gnion fill; 
RP longword un ates ed; /* record pointer (relative record !) 
RP -VBN N_OVER AY “ukten’ fill; 
“VBN lLongword unsigned; 
RP -VBN,FIELDS structure tili; 
INS word unsigned; /* offset for position for insert for put (indexed) 
PTT word unsigned; /* first split point (indexed) 


/* record pointer (relative) 


end HS VBN_FIELDS; 
end RP VEN “OVERLAY; 


end RP_OVE 
RP ~OFF =OVERLAY union fill; : 
OVER AY uns igned /* record pointer offset 
iste “REC mt RLAY union fill; 
Longword unsigned; /* last record address (indexed) 
BIRT VEN _OVERLAY union fill; 
“PTR_VBN Longword unsigned; /* pointer vbn used by find_by_rrv (indexed) 
PTR_VBN_FIE hue structure fill; 
RP_OFF_OVERLAY! union fill; 
OFF word unsigned; /* record pointer offset 
SP cof 1 vers uns gned; /* second split point -- 3-bkt split (indexed) 
ona af OFF_OVERLAY1; 
SFL vord go /* third split point -- 4-bkt split (indexed) 
end P PTR "BN ELDS; 


end PTR_VBN_OV CRLAY: 
end LST_REC OVERLAY: 
end RP OFF OveRCAY; 
OWNER D. OVERLAY union fill; 


_1D longword uns igne d; /* owner id used for record locks 
“ID FIELDS structure fill; ; 
_ID word unsigned; /* index part of process id (pid) 
OWN 1S1_OVERLAY union fill; 
“OWN-ISI word unsigned; /* isi value for this irab 
PPF-ISI OERLAY uns igned; /* isi value for this process~-permanent irab 
end OWN ISI 0 Y; 
wits 16_FIELD 
nd OUNER ID_OVERLAY; 
BCNT byte unSigned; /* i/o buffer count 


MBC byte unsigned; /* multi-block count 

RSZ word unsigned; /* record size from user 

RBF penquere uns igned; /* user record buffer address 

/* Multi-buffer count from user's RAB 


te unsigned; /* IRB journaling flags 
8 i structure fill; ! F 
VALID AA "nee mask; /* IRB MJB contains valid AT entry to write 


end SncriG’. 6 SVERPAY.” 


mE union fill: 


—_——_— 
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pooet he! word fill prefix IRBDEF tag $$; /* spare to longword align 
/* 
os start of organization dependent fields 
{eee 
/t 
used by sequential and relative files 
FILL_8 word fill prefix IRBDEF tag $$; /* pad so longwords align 
CS1Z word unsigned; /* current record size (seq) 
{++ 


/t 
“ relative org specific fields 


constant BLN_REL equals . prefix IRB$ tag K; 
constant BLN_REL equals . prefix IRB$ tag C; 


/* sequential org specific fields 


OVHDSZ word unsigned; /* overhead size for record 
ROVHDSZ_FIELDS structure fill; 
CCTL aye unsigned; /* ‘pre’ carriage control 
POST_CCTL Yge unsigned; /* ‘post’ carriage control 
VHBS2_ FIELDS; 


end RO 
end ROVHDSZ_OVERLAY; 
RTOTLSZ word unsigned; /* total size for record 
end TEMPO FIELDS; 
end TEMPO OVERLAY; 
TEMP1_ OVERLAY union fill; 
TEMP! ltongword unsigned; 
constant BLN_SEQ equals . prefix IRB$ tag K; 
constant BLN_SEQ oquess - prefix IRB$ tag C; 
NVBNS byte unsigned; 


/t 
a indexed org specific fields 


end TEMP1_OVERLAY; 
end IRBDEF; 


eggregate papoert structure fill prefix IRBS$; 
FILL 11 byte dimension 96 fill prefix IRBDEF tag $$; 
KEYBUF Longword unsigned; /* address of internal key buffer & update buffer 
UPDBUF Longword unsigned; /* address of internal update buffer 
RECBUF lLongword unsigned; /* address of internal record bufter 

U songuors unsigned; /* address of internal old record buffer (updates only) 
RFA_VBN_OVERLAY union fill; 

RFA_VBN longword unsigned; /* save record vbn for nrp data 


/* number of vbns transferred (nxtblk1) 


x 
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UPD -BDB. OVERLAY union fill; 


“BDB Longword unsi ned; /* save current bdb during insert operation 
LAST _VBN venenae uns gned; /* last vbn at data level for update 
end bPD "60s OVE 
nd RFA_VBN LAY; 
FA 1D_6v ERCAY union fill; 
RFK_ID word unsigned; /* save record id for search data 
= BART pote word ye gned; /* id for udr during update (plg 3) 
e ; 
SAVE _POS Ae signed; /* save duplicate position for nrp data 
NEXT~ or _OVERLAY “unten” fill; 
rVeN A eee unsigned; /* save next user data record VBN for nrp data 
ong PUNY? ate SNNOVERCAYS® uns gned; /* RFA VBN of SPUT/SUPDATE record 
Piast ven a onewore uns jgned: /* save SIDR first element VBN for search NRP data 
NEXT TD Y union fil 
Ex at) word unsigned; /* save next user data record ID for nrp data 
PUTUP_ID vere ye gned; /* iD of SPUT/SUPDATE record 
end NEXT_TD_OVER 
fey 1D word nant ok /* save SIDR first element ID for search NRP data 
K_BbB penewere ut unsigned; /* lock bdb addr of level below on splits 
VBN “tert ERLAY union fill; 
N CERT T longword unsigned; /* Left vbn of split 
MID OR TMP1 att word uns gned; /* temporary one for make index 
nd VBN cert 
VEN _RIGAT OVERLAY union fill; 
“VBN_RIGHT Longword unsigned; /* right vbn of split 
MIDR_TMP2 oorReere unsigned; /* temporary two for make index 
end VBN_RIGHT 


VBN_MID_O OVERLAY caten fill; 
VBN-MID . word unsigne /* middle vbn of split 

MIDE. TRP RLAY union “Fit: 
AiDx_ Tres Longword unsigned; /* temporary three for make index 
NEXT_D RPS OVERLAYS unsigned; /* used by search_tree 

end MIDX~ OAPs ove 

end VBN_MID_OVERL 

REC_COURT 1 lSnguord "stoned /* number of current record in this bucket (plg 3) 

ere _NCMP_ Longword unsigned; /* address of past key with zero front congress ten (pla 3) 

et 


COUNT longword uns gned; /* number of the first record to be moved into new buc 
/* when splitting indexes and SIDRs 
NID_RIGHT word uns toned: /* Next record ID of the right bucket 
14 “MID word unsigned; /* Next record ID of the ai dle bucket 
RFA gl word uns lgned; /* Next record . of the RFA bucket 
KEYSZ byte unsi gree /* size of key in keybuffer ! 
FILL_9 vse fil prefix IRBDEF tag $$; /* spare byte 
CUR. ongword unsigned; /* VBN of current record (primary/SIDR) 
S_VBN Longword uns igned: /* VBN of primary data record for NRP positioning 
UD “VBN longword unsigned; /* VBN of curren er rpery data record 
SIDR_VBN Longword uns gned; /* SIDR array first element VBN of current record (SIDR) 
CUR_TO word unsigned; /* 10 of current record (primary) 
POS_ID word unsigned; /* ID of primary data record tor NRP positioning 
UDR_ID word unsigned; /* ID of current primary data record 
SIDR_ID word unsigned; /* SIOR array first element ID of current record (SIDR) 
CUR_COUNT word uns Signed; /* SIOR array count gr current record (SI 
RP_RREF byte unsigned; /* Key of reference by which next record is retrieved 
CUR_KREF bote uns gned; /* Key of reference of current record (primary/SIDR) 
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constant BLN_IDX equals . prefix IRB$ tag K; 
constant BLN_IDX equals . prefix IRBS$ tag C; 
end IRBDEF1; 
end_module SIRBDEF; 


module SASBDEF; 


RMSINTSTR.SDL;1 


operegete ASBDEF structure fill prefix ASBS; 
STKLEN word unsigned; 


STKSIZ word unsigned; 
FILL_1 longword fill prefix ASBDEF tag $$; 
BID Byte unsigned; 
constant BID equals 13 prefix ASB tag $C; 
BLN byte une tene ; , 
FILL aye dimension 2 fill prefix ASBDEF tag $$; 
ARGLST_OVERLAY union fill; 

ARGLST longword unsigned dimension 4; 
ARGLST_FIELDS structure fill; 

RGCNT byte unsigned; 


i 

FILL_6 byte dimension 3 fill prefix ASBDEF 
FABRAB lLongword yns iqned; 

ERR Longword unsigned; 


suc sengvers unsigned; 
end ARGLST FIELDS; 
end ARGLST_OVERLAY; 


REGS Longword uns igned dimension 5; 
constant BLN_FIX equals . prefix ASB$ tag K; 
constant BLN_FIX equals . prefix ASB$ tag C; 


STK Longword unsigned dimension 35; 
constant BLN_SEQ equals . prefix AsBs tag Ki: 
r ag C; 

FILL.3 Longword fill prefix ASBDEF tag $8; 
constant BLN_REL eq fix 
constant BLN_REL equals . prefix ASB$ tag C; 
FILL_4 longword dimension 40 fill ecetis ASBDEF tag 
constant BLN_FAB equais . prefix ASB$ tag K; 
constant BLN_FAB equals . pretis ASB$ tag C; 
FILL_5 longword dimension 40 fill ecetis ASBDEF tag 
constant BLN_IDX equals . prefix ASB$ tag K; 
constant BLN_IDX equals . prefix ASB$ tag C; 

end ASBDEF ; 


end_module SASBDEF ; 
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/* 

. ASB field definitions 

ic Asynchronous context block (asb) 

/* There is one asb per irab ge ctee to by irb$l_asbaddr allocated at 
oe connect and one per ifab which is dynamicaly allocated at stall 

/* The asb$l arglst is pointed to ey the orgist field of the 

i irab if the irb$v_async bookkeeping bit is set 

te ALL of the asb$c_bln_xxx must be longword aligned 


/* save stack length (must be first word in block) 
/* STKLEN = BLN_org - BLN_FIX 
/* size of saved stack in Bytes 


spare 
/* block id 


asb id = 1 
/* block length in Longwords 
/* spare 


/* saved argument List on async irab operations 


/* argument count 
/* ye ue will be 0, 1, 2, or 3 


/* fab or rab address 
/* err routine addr 
/* suc routine addr 


* save register area for regs 6, 7, 8, 10 and 11 
/* block Length of fixed asb 

/* block length of fixed asb 

/* regs 4 and 5 are saved on stack 

* saved stack area 

/* block Length for seq org irab operations 

/t bhack songs for seq org irab operations 

/* additional space for relative org 

/* bleck length for rel org irab operations 

/* block length for rel org irab operations 

$$;/* additional space for indexed org and FAB-related 
/* block length for fab-related operations 

/* block length for fab-related operations 
$$;/* additional space for indexed org 


N 
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module SBDBDEF ; 
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/* BDB field definitions 
/* buffer descriptor block (bdb) 


/* there is one bdb per i/o buffer 
/* ( the i/o buffers exist in separate pages, page aligned) 


ecarepete & BDBDEF structure fill prefix BDBS$; 


%K Longword unsigned; /* forward Link 
BLINK Longword unsigned; /* backward Link 
BID byte unsigned; /* bloc 
constant BID equals 12 prefix BDB tag $C; /* bdb id code | 
BLN byte unsigned; /* block length in Longwords 
FLGS OVERLAY union fill; 
FLGS byte unsigned; /* bdb flags 
FLGS_BITS strurture fill; 
VAL bitfield mask; /* buffer contents valid 
DRT itfield mask; /* buffer content dirty 
IOP bitfield anaes /* buffer has i/o in progress 
PRM bitfield m /* buffer has permanence factor 
NOLOCATE Sittietd: mask; /* buffer shared - no locate mode 
/* (set/cleared by rm$cache) 
WFO bitfield mask; /* other streams awaiting 
/* the releasing of this bdb 
AST_DCL bitfield mask; /* ast has been declared for 


/* waiting stream 
end FLGS BITS; 
end FLGS_OVERLAY 
CACHE_VAC “BVERLAY union fill; 
fe ~ byte yeeegest /* relative value of byf ter in cache 


VERT RY SER unsi oneness /* version type (1 = wi 
end CACHE VA 
USERS word und oned. /* number of streams referencing this buffer 
BUFF_ID word unsigned; /* buffer identification number 
> re see are une reds /* pointer to BLB chain for this BDB 
union 
word poe Ba /* ! of bytes of buffer in use : 
DIRSEQ vers unsigned; /* UCBSW_ IRSEQ at directory read time 
end NUMB_OVERLAY; 
SIZE word unsigned; /* ! bytes in buffer 
ADDR longword uns igned; /* address of buffer 
VBN longword unsigned; /* ist vbn in buffer 
VBNSEQ OVERLAY union fill; 
eer SEONO ongyerd. uns uns igned; /* vbn seq number of validity check vs. bcb copy 
eneuers une’ gned; /* address of last directory record 


end VBNSEQNO® OVER 
WAIT OVERLAY “unten atte 
BAIT Longword Ba, ae /* wait thread (irab addr) 
/* (for inter-stream intra- 
/* process locking only) 
VERCOUNT Longuore unsigned; /* negative count of version entries scanned 
end WAIT_OVERLAY; 
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ALLOC_ADDR Longword unsigned; /* buffer allocation addr 


ALLOC_SIZE wor anes eets /* buffer allocation size 

FILL_T word fill prefix BDBDEF tag $$; /* spare 
B1_B58 Longword unsigned; /* address of isam/block i/o bi journaling BDB 
Al _BDB Longword unsigned; /* address of isam/block i/o ai journaling BDB 
JNCSEQ character Length 16; /* Journaling Sequence Number Block 
WK1_OVERLAY union fill; 


WK1 Longword unsigned; /* work area 


WK1_FIECDS structure fill; 


REL_VBN byte una tenes /* current vbn rel to start of buffer 
VAL_VBNS byte unsigned; /* ! of valid vbns in buffer 

PRE_CCTL byte unsigned; /* unit record carriage control byte ('pre') 
POST_CCTL byte unsigned; /* unit record carriage control byte (‘post’) 


end WK1_FIELDS; 
end WKk1 OVERLAY; : 
CURBUFABR Longword unsigned; /* current buffer addr 
end BDBDEF ; 


onerepete BDBDEF1 structure fill prefix BDBS; 
FILL_2 pyte dimension 72 fill prefix BDBDEF tag $$; 
1OSB_OVERLAY union fill; 


OSB longword unsigned dimension 2; /* i/o status block for buffer 
constant BLN equals . prefix BDB$ tag K; /* Length of bdb block 
constant BLN equals . prefix BDBS$ tag C; /* Length of bdb block 
IO0SB_FIELDS structure fill; 
VERSION longword unsigned; /* addr of current/next directory version entry 
4 aie rine unsigned; /* address of current/next directory record 
en $ 


end IOSB_OVERLAY; 
end BDBDEF1; 


end_module $8DBDEF ; 
module $GBPBDEF ; 


cD 
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/* GBPB field definitions 
/* Global Buffer Pointer Block (GBPB) 


| 
/* The GBPB is the process local structure used in conjunction with 
/* shared global i/o buffers. In order to inimize the impact of 
/* lobal buffers on existing code, the GBPB is identical to a BDB 
/* n those fields which are referenced outside of the RMSCACHE and 
/* RMSRELEASE routines. 

| 


aggregate GBPBDEF structure fill prefix GBPB$; 
FLINK Longword unsigned; /* forward Link 


BLINK Longword unsigned; /* backward Link 

BID byte unsigned; /* block id 

constant BID equals 21 prefix GBPB tag $C; /* gbpb id code 

BLN byte unsigned; /* Block Length in Longwords F 

FLGS byte unsigned; /* gbpb flags (use BDB bt definitions) 

CACHE_VL byte yrs tends /* relative cache value of this buffer 

USERS word unsigned; /* number of streams referencing this buffer 

BUFF_1D word unsigned; /* buffer identification number 

BLB_PTR Longword unsigned; /* pointer to BLB chain for this GBPB 
word unsigned; /* | of bytes of buffer in use 

SIZE word unsigned; /* ! bytes in buffer 

ADDR Longword unsigned; /* address of buffer 

VBN longword unsigned; /* ist vbn in buffer 

VBNSEQNO Longword unsigned; /* sequence number field. 

GBD_PTR longword unsigned; /* Pointer to the GBD for this buffer. 

constant BLN equals . prefix GBPB$ tag K; /* Length of GBPB block 

constant BLN equals . prefix GBPB$ tag C; /* Length of GBPB block 


end_module $GBPBDEF ; 
module $RLBDEF ; 
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| 
| 

. RLB field definitions | 

a record lock block (rlb) | 

/* The rlb describes one pocked te record. ter a particular 

/* ro weperecere stream ag ra the owner field 

/* s 0 then the rlb is avai Pity vB, ore otherwise, it 

/* describes a locked record. note: when owner is 0 the 

es record rfa fields are zeroed (0). 

/t 

/t Ferm een ese eee eee en eee em eee renee eres eses + 

/* rlb: ! Link ' 

/* $e e ree ete eee eeee te mowoeoeeeeeoeoooces + 

/* ' H rfa4 id ' 

/* powwow oowwn}oooonnne poeweooceone feescwncees 

/* | flags ireservedi bln . O46 | 

FR a a a a dp a a ocr cece ne + 

/* H rfa0 ' 

/* teen eee ee ee ee eee ee ee ee eee eee ne ene nec ene + 

/* : owner ' 

/* Ferm m eee ewes ee eeeeeseceseseeeescoecoe= + 

/* ksb: H Still to be def- } VMS status code H 

H ined status bits } } 

werner eeen nen ne etn creme enn vo reer enna ewe = mw + 
/* Lock Id. (Returned for new locks, 


nput for conversions) 


encore unsigned /* Link to next rlb 
MISC_OVERLAY union fill; 
ISC longword unsig ne /* longword definition to optimize clearing field 
MISC_FIECDS. structure a Tite 
FLAGS2 OVERLAY union fill; 


LAGS2 word unsigned; /* more flag bits 
FLAGS2_BITS structure fill; 
TIRER So Bris: bitfield mask; /* Timer queued. 
end PraGso, Ov OVERLAY; 
RFA4 4 OVERLAY union fill; 
FAS word unsigned; /* 3'rd word of records rfa 
/* offset for seq f.o. (bits 0:14) 
/* always 0 for rel f.o. (bits 0:14) 
ID word unsigned; /* id for idx f.o. 
end RFA4_ OVERLAY; 
end MISC_FIECDS; 
end MISC_OVERLAY; 
BID byte unsigned; : /* block id 
constant BID equals 14 prefix RLB tag $C; /* rlb code 
BLN byte unsigned; /t block Length in longwords 


/* twee ee ee we ee ee ee ee em eee ee eee em ee ee eee ee 

/* 

meoronety © RLBDEF Seryscure fill prefix RLBS$; 
| 
| 
| 

TMO byte unsigned; /* propagation of ROP TMO field 


FLAGS_OVERLAY union fill; 
FCAG te unsigned; 
FLAGS BITS structure he 
WAIT bitfield mask 
CR bittield mask; 


PW bitfield mask; 
PR bitfield mask; 


TMO bitfield mask; 
end FLAGS BITS; 
end FLAGS_OVERLAY; 
RFAO Longword uns igned; 


OWNER Longword unsi ned: 
a: tty AY union 3 
CKSB Longword eat sheds 
LKSB.FIECDS structure fill; 
STATUS word unsigned; 
a yore unsigned; 
nd CRSBF ELDS; 
end frse TOVERLAY: 
Lock ID Tongword unsigned; 
constant BLN equals . pretix RLB$ tag Ki 
constant BLN equals . prefix RLBS$ tag C 
end RLBDEF; 


end_module SRLBDEF; 
module $FLBDEF; 


various locking flags 


propagation of ROP WAT bit, : 
defines lock mpnegee mode ‘‘concurrent read’ 
used to query lock database for records 
allow reader access to locked record flag 
indicate ‘lock for write, allow readers’ 
used to query lock database 
defines Lock manager option ‘'convert’’ 
sets lock as ‘‘level 2°' RU consistancy 
this RLB contains no lock 
propagation of ROP TMO bit 


1'st and 2'nd words of record's rfa 
seq f.o. vbn 

rel f. . relative record number 

idx f.o. start vbn 

identification of owning stream 


first longword of lock status block 
VMS status code 
various status bits 


second longword of lksb is lock_id 
Length of rlb 
Length of rtd 
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/t 


. file lock block definitions 


200 708 tt uk FLBDEF structure fill prefix FLBS; 


K longword unsigned; /* pointer to next FLB 
RLB-LNK Longword unsigned; /* pesnrer to RLBs 
BID byte unsigned; * 
constant BID equals 23 prefix FLB tag $C; 
BLN byte unsigned /* block Length 
FILL_1 word fill peetix FLBDEF tag $$; /* epace 
rg, PTR Longword uns joned; /* IFAB address 
LOCK 7? angeare ¥ uns ign /* lock id 
constant BLN equals . yn FLB$ tag K; 


constant BLN equals . prefix FLBS$ tag C 
end FLBDEF; 


end_module $FLBDEF; 
module $DRCDEF ; 


/* 
Me directory cache node definitions 


aggregate ORCDEF structure fill prefix DRCS$; 
NXTFLNK Longword unsigned; /* 


NXTBLNK longword unsigned; /* 
LVLFLNK lLongword unsigned; /* 
LVLBLNK longword unsigned; os 

t 


NAME character Length 40; /* 


DID_OVERLAY union fill; 
DID word unsigned dimension 3; /* 
constant BLN equals . prefix DRC$ tag K; /* 
constant BLN equals . prefix DRC$ tag C; /* 


I 

IRSEQ word unsigned; 
ID_FIELDS; 
d DID_OVERLAY; 


en S 
end DRCDEF; 
end_module $DRCDEF ; 
module SRLSDEF; 


Ll; 
byte dimension 2 fill prefix DRCDEF tag $$ 
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Link to next entry, this level 

Link te previous entry, this level 

Link to first entry, next lower level 

Link to last entry, next lower level 

note: the Links are maintained in lLru order 
directory name or device and unit 

note: stored as counted string counting count itself 


file id for directory 


Length of directory cache node 
length of directory cache node 


directory sequence ! for device node 
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oc cache option flag definitions 


aggregate. CSHDEF union rib weer CSH$; 
CSHDEF BITS structure f 
LOCK bitfield mask; /* obtain exclusive access to block 
NOWAIT bitfield mask; not wait for block on access interlock 


/* 

/* sion 
NOREAD bitfield mask; /* do not read in block 
NOBUFFER bitfield mask; M obtain access to block but don' ' _brseceee 


t read i 
end CSHDEF _BITS; 
end CSHDEF; 


end_module SCSHDEF; 
module SPIODEF; 


a buffer for it and don 
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is rms overall status bit definitions 


aggregate PIODEF union fiht prette P10$; 
PIODEF BITS structure fill; 
INRAST bitfield; /* set if asts implicitly inhibited 


/* if reset by disabled ast, ast must be re- 
/* enabled 
EOD bitfield; /* set if searching for ‘eod' string gn ‘input’ 
SYNC] bitfield; /* sync stalled operation using efn 2 
proce, Santaeves /* sync stalled operation using efn 28 


end P 
end PIODEF; 
end_module SPIODEF ; 
module SFILDEF; 
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/* definitions for rms debug failure codes 


/* the following codes are for temporary bug check tests, and are 

/* internal to rms. all of the codes are negative implying that they 
/* do not return to the caller, probably killing the process (if not 
fe the entire system). 


(rmOpr f lnm 


lobal buffer section lock (rmO0share) 
th other block(s) 


/ 
constant SETPRTFAIL equals -1 prefix FIi tag $; /* set pretecs ten system gery ee failed (rm0bufmgr) 
constant STKTOOBIG equals § prefix FIL tag $; /* stack too big for asb (rm0stall) 
constant BADIF equals -5 prefix FIL tag $; /* invalid ifab or irab (rmOfset,rm0conn,rmO0rset ,rmOprf lnm) 
constant GTCHNFAIL equals -4 prefix FIL tag $; /* get channel system service fai flnms 
constant BADORGCASE equals -5 prefix FIL tag $; /* invalid orgcese value for dispatch (all rms$ 

/* level routines execept open and create) 
constant BADBDB equals “$ prefix FIL tag $; /* block not a bdb (rm0bufmgr) 
constant ASBALLFAIL equals -7 prefix FIL tag $; /* couldn't allocate an asb (rm0stall) 
constant BADASTPRA equals -8 prefix FIL tag $; /* ast parameter not a valid ifab/irab addr (rm0stall) 
constant CANTDOAST equals -9 prefix FIL tag $; /* couldn't redeclare ast (insf. mem.) (rm0stall) 
constant NOSTRUCT equals -10 prefix FIL tag $; /* rab or fab not same on ast (rmOstall) 
constant NOASB equals -11 prefix FIL tag $; /* asb not allocated or stream not busy on ast (rm0stall) 
constant NONXTBDB equals “1g prefix FTL tag $; /* no next bdb available (rmiseqxfr) 
constant BADBUFSIZ equals -15 prefix FIL tag $; /* disk buffer size not = 512 (rmiconn) 
constant ENQDEQFAIL equals -14 prefix FIL tag $; /* enq or deq service failed (rmOreclck) 
constant NOCURBDB equals -15 prefix FIL tag $; /* no current bdb before calling rm$release (rmO0reclck) 
constant NOPARENT equals -16 prefix FIL tag $; /* no parent lock available for 
constant DEALLERR equals -17 prefix FIL tag $; /* ifab deallocation attempted w 

/* still allocated (rms0close) : 
constant IORNDN equals -18 prefix FTL tag $; /* i/o rundown inconsistency (either ifab or irab 

/* table entries not zeroed) (rmsOrndwn) 
constant XFERSIZE equals -19 prefix FTL tag $; /* size of requested transfer not equal to 

/* or less than the current number of bytes 

/* in use for the bdb (rm0cache) 
constant NOTLOCKED equals -20 prefix FTL tag $; /* bdb not locked and a keep lock request 

/* was made on a release request. . 
constant NODIDORF ID equals -21 prefix FTL tag $; /* neither a fid nor a did was set upon exit from 

/* cm$setdid (rmsOerase) 
constant RELEASFAIL equals “3§ prefix FIL tag $; /* release of non-dirty bdb failed (rm0xtnd23,rmsO0extend) 
constant NOLOCKBDB equals - prefix FTL tag $; /* no lock bdb found (rm0xtnd23) 
constant NONE TWORK equals -24 prefix FIL tag $; /* network routine entered but no network support in rms 
constant LOCKFAILED equals -25 prefix FIL tag $; /* failed to lock prolog (rm2dcreate) 
constant BADLEVEL equals - § prefix FTL tag $; /* to search by id, etructure level must be 0 
constani ASTDECERR equals - prefix FIL tag $; /* ast declaration for file sharing failed 
constant BADGBLCNT equals - 8 prefix FIL tag $; /* Zero global buffer count found when not expected (rmiconn) 
constant ACCNTOVFLO equals - prefix FIL tag $; /* access count overflow (rm0share) 
constant BDBAVAIL equals -30 prefix FTL tag $; /* BDB was available and shouldn't have been. 
constant K equals -31 prefix FIL tag $; /* Record locking was not set with global buffers. 
constant LCKFND equals - ¢ prefix FIL tag $; /* A lock was found and we don't know what to do. 
constant NOBLB equals - prefix FTL tag $; /* No BLB was found and there should have been one. 
constant NOGBPB equals -34 prefix FIL tag $; /* No GBPB was found and should have been. 
constant NOLCLBUF equals -35 prefix FIL tag $; /* Should have found a local b 
constant NORDNOTSET equals - § prefix FIL tag 3: /* NOREAD ne} set when NOBUFFER was. 
constant NOTGBPB equals - prefix FIL tag $; /* Found an illegit BDB 
constant NOSFSB equals -38 prefix FIL tag $: /* No SFSB when allocating BLB. 
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constant LOCKHELD 


constant BADEBKHBK 


end_module SFTLDEF; 
module SBUGDEF ; 


equals 
equals 
equals 
equals 
equals - 
equals 


~44 


prefix 
prefix 
prefix 


FIL 
FTL 
FTL 
FIL 
FTL 
FTL 
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$ 


Me A rey pul fer to return a oy Ae with lock_id neq 0 


{3 Ba abut fer wn" B Loe in re 


Beck kin engel routin 
wner ietd” s bad in blocking’ as rif routine. 
GETLKIW st 


Caled” ; last chance (rms0 
is tried to store an invalid EBK/HBK eekchontt. 


e*e# ee eee e eee ee ee eeeeenne 


{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
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/* the following easeree) codes are for non-fatal bug check repors ing, 

/* these codes are positive byte values. they trigger a reporting action 
/* and recurn to the caller with r0 set to rms$_bug+<8*the bug code>, 

/* which is an externally documented rms error Code. 


constant BADDFLTDIR equals 1 prefix BUG tag $; /*DEFAULT DIRECTORY STRING INVALID (RMOXPFN) 


end_module SBUGDEF ; 
module SIDXDEF; 


{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 


B 10 
RMSINTSTR.SDL;1 16-SEP-1984 16:44:26.66 Page 35 
/* IDX field definitions 
/* index descriptor definition 


/* An index descriptor block exists for each key of reference in use. 
/* they are not necessarily contiguous in memory. 


” 
rs 


~ 
* 


aggregate IDXDEF eg oa dB fill prefix IDX$; 


XFL_ Longword Bilas 7* forward Link to next index descriptor 
FILL_1 longword fil prefix IDXDEF tag $$; /* spare 
BID Byte unsigned; /* b ock id 


constant BID equals 15 prefix IDX tag $C; /* id for index Speer oper block 


FLAGS OVERLAY union f 
AGS byte eleteal! 
ater: im B structure fill; 


BLN byte unsigned; /* Length of bloc 

VBN Longword unsigned; /* VBN where the. desert tor came from 

OFFSET word unsi oe /* Offset into the block (VBN) of the descriptor 

pest -NO Moa uns /* Descriptor number (index into update buffer) 
Fite fh prefix IDXDEF tag $$; /* spare 


area number for index buckets 


er byte patinel: /* area number for Lower index buckets 
DANUM byte unsigned; /* area number for data buckets 
ROOTLEV byte unsigned: /* level of root 

IDXBKTSZ byte unsigned; /* size of index bucket in vbn's 
DATBKTSZ byte une toned: /* size of data bucket in vbn's 
ROOTVBN Longword we ned: /* start vbn of root bucket 


index/key flags 


{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
m 


end FLAGS OVERLAY; 


DATATYPE byte u uns igned /* data type of Ban field 
constant $ rote 0 IDX tag $C; /* opr ing data 

constant SGNUORD equals 1 IDX tag $C; /t Signe binary” bord 
constant UNSGNWORD equals IDX tag $C; /* unsigned binary word 
constant SGNLONG l IDX tag $C; /* signed binary long word 


PKEYS bitfield mask; /* pest “cote keys allowed 
CHGKEYS bitfield mask; /* k 4 can change values jodi 
NULKEYS bitfield mask; /* null key value allowed 
X_COMPR bitfield mask /* tadex is compressed 
INITIDX bitfield mask; /* roeee is not initialized agg 
LL_3 bitfield fill prefix IDXDEF tag $$; /* s 
KEY_COMPR bitfield mask; * eee "hes been compressed 
end FEAGS _BITSO; 
FLAGS_BITS1 structure fill; 
FILL_4 bitfield fill pretis | IDXDEF tag $ /* ae over dupkeys 
FILLE "5 bitfield Lengt 2 f L pret retix DxD Der t 
FILL “8 bitfield fill prefix ID tag $$; je? space over idx_compr 
FILL-7 bitfield fill prefix IDXDEF tag $$; /* space over initidx 
FILL_8 bitfield fill prefix IDXDEF tag $$; /* spare 
FILL-9 bitfield fill prefix IDXDEF tag $$; /* space over key_compr 
REC_TOMPR bitfield mask; /* data record is in compressed form 
end FLAGS_BITS1; 
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constant UNSGNLONG equals 4 prefix IDX tag $C; 
constant PACKED equals 5 prefix IDX tag $C; 
constant SGNQUAD equals 8 prefix IDX tag $C; 
constant UNSGNQUAD equals prefix IDX tag $C; 


GMENTS byte unsigned; 
NULLCHAR byte ones 
KEYSZ y hes unsigned; 
KEYREF 


IDXBKTYP : te unsigned; 


constant BKT equals 0 prefix IDX tag $C; 
constant CMPIDX equals 1 prefix IDX tag $C; 
constant NCMPIDX equals 2 prefix IDX tag $C; 
DATBKTYP arse unsigned; 

constant CMPCMP equals 3 prefix IDX tag $C; 


constant CMPNCMP equals 4 prefix IDX tag $C; 
constant NCMPCMP equals 5 prefix IDX tag $C; 
constant NCMPNCMP equals 6 prefix IDX tag $C; 
FILL_10 word fill prefix IDXDEF tag 


$$; 
constant FIXED_BLN equals . prefix 10x$ tag K; 
constant FIXED_BLN equals . prefix IDX$ tag C; 


/t 
oS the following is the Length of the fixed part of the 
* 


/* 
oe the following is repeated for each key segment 
* 
POSITION word unsigned; 
SIZE byte unsigned; 
TYPE byte unsigned; 
end IDXDEF; 
end_module SIDXDEF; 


module SUPDDEF; 


unsigned binary long word 
packed decimal 

signed binary quadword 

unsigned apnery quadwerd 

number of key field segments 

null character 

total key size 

key of reference(0-primary) 

minimum record size 

index fill 

data fill 

PLG3 = type of index bucket and SIDR bucket 
Prologue two bucket 

Prologue 

presogue 
PLG3 - type of primary data bucket 


Prologue 3, SIDR key is compressed 
Prologue 3, primary key is compressed, 
data is not compressed 
Prologue 3, primary key is not compressed 
data is grrpryeces 

ye 3, primary key is not compressed 
data is not compressed 
Prologue 3, SIDR key is compressed 
spare 


index descriptor 


/* 
/* 
/* 


key segment position 
key segment size (plg 3) 
key segment datatype (plq 3) 
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/* 
/* update 
/* 


aggregate 


DEL 
end Pt Ree 81 


end UPDDE 
end_modul 


module S$GBHDEF ; 


buffer flags 


UPDDEF union fill prefix UPDS; 
Puakee el ifs Se ed; 

S structure fill; 
W bitfield mask; 
bitfield mask: 
Y TS; 


e SUPDDEF; 
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/* alternate ke 
/* delete this 


ke 


to be inserted from record buffer 
y value using old record 


aad) 
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ce GBH field definitions 

. Global Buffer Header (GBH) 

i There is a Global Buffer Header for every file's global buffer section. 
- ee WARNING = THIS STRUCTURE MUST BE QUADWORD ALIGNED *** 


aggregate GBHDEF structure fill prefix GBHS; 
" GBD FL 


_FLNK Longword unsigned; /* Self relative queue header for GBD's 
GBD_BLNK Llongword unsigned; 
BID byte unsigned; /* Block ID 
constant BID equals 17 prefix GBH tag $C; /* Block ID code for GBH 
BLN pyee unsigned; /* Length of GBH in Longwords 
TRC_FLGS_SVERLAY union fill; 
RC_FLGS word unsigned; /* Trace flags (set to trace given function) 
TRC_FLGS_ BITS structure fill; 
CACHE_IN bitfield mask; /* Cache inputs 
ACHE-OUT bitfield mask; /* Cache outputs 

RLS_IN bitfield mask; /* Release inputs 

RLS_OUT bitfield mask; /* Release outputs 

QIO_START bitfield mask; /* Qio inputs 

Q10_ DONE bitfield mask; /* Qio outputs 

STACL bitfield mask; /* Stall inputs 

THREADGO bitfield mask; /* Stall outputs 

LB_ENQ bitfield mask; /* Bucket lock ENQ inputs 

BLB_GRANT bitfield mask; /* Bucket lock grant status 

BLB_DEQ bitfield mask; /* Bucket lock DEQ request 

BLB_ BLOCK bitfield mask; /* Blocking AST received 

Fi Bitfield mask; 

rs bitfield mask; 

FS bitfield mask; 

F4 bitfield mask; 

end TRC_FLGS_BITS; 

end TRC_FLGS_OVERLAY; : 
HI_VBN Tongword unsigned; /* Highest possible VBN value (FFFFFFFF). 
GS_SIZE longword unsigned; /* Size of total section in bytes. 
LOCK_ID Longword unsigned; /* Lock ID of system file lock. 
GS_LOCK_ID longword unsigned; /* Lock ID of system global section lock. 
USECNT Tongword unsigned; /* Accessor count for section. 
TRC_FLNK Longword unsigned; /* Trace blocks forward Link 
TRC_BLNK Longword unsigned; /* Trace blocks back Link 
GBD_START longword unsigned; /* Offset to first GBD. 
GBD_END longword unsigned; /* Offset to last GBD. 
GBD_NEXT lLongword unsigned; /* Offset to next cache victim GBD. 
SCAN_NUM Longword unsigned; /* Number of GBD's to scan for victim. 


/t 
a Global buffer statistics section 


HIT longword unsigned; /* Buffer found in global cache 
MISS Longword unsigned; /* Buffer not found in global cache 


RMS 


end 
end 
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Longword unsigned; /* Buffer read from disk into cache 


READ 

WRITE lLongword uns gned: /* Buffer written from cache to disk 
DFW_WRITE Longword unsigned; /* Deferred writeback from cache to disk 
CROSS _HIT longword unsigned; /* Cross process hit count. 

OUTBUFQUO Longword ynsigned; /* Count of times GBLBUFQUO Limit was hit. 
FILL_1 longword unsigned; /* Force quadword alignment 

constant BLN equals . prefix GBH$ tag K; /* Length of global buffer header structure 
constant BLN equals . prefix GBHS$ tag C; /* Length of global buffer header structure 


end GBHDEF ; 
end_module S$GBHDEF ; 
module STRCDEF; 
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/t 
; TRC field definitions 
A Trace block structure (TRC) 
/* ‘rac ton saves at specific points in the RMS code for debugging and 
oe algorithm analysis purposes. 
wee WARNING - THIS STRUCTURE MUST BE QUADWORD ALIGNED *** 
® 


aggregate TRCDEF structure fill prefix TRC$; 
FLNK Longword unsigned; 

BLNK longword unsigned; 

BID byte unsigned; 

genes ene BID equals 18 prefix TRC tag $C; 


FUNCT 
**“STRUCTURE*’ senqueré unsigned; 


VBN longword unsigned; 
RETURN1 Longword unsigned; 
RETURN2 Longword une jpned: 
ARGS_OVERLAY union fill; 
ARGS longword unsigned dimension 8; 
constant BLN equals . prefix TRC$ tag K; 
constant BLN equals . prefix TRC$ tag C; 
ARGS_FIELDS structure fill; 
ARG_FLG longword unsigned; 
BDB_ADDR longword uns gned: 
BDB_USERS word unsigned; 
BDB_BUFF word unsigned; 
BDB_CACHE byte unsigned; 
BDB_FLAGS byte unsigned; 
BDB_SEQ longword ynsigned; 
BLB_MODE byte unsigned; 
BLB_FLAGS byte unsigned; 
BLB_ADDR lLongword unsigned; 
BLB_LOCK longword unsigned; 
BLB_SEQ Longword unsigned; 


end ARGS FIELDS; 
end ARGS_OVERLAY; 
end TRCDEF; 


end_module S$TRCDEF; 
module SGBDDEF ; 


Trace block forward Link 

Trace block back Link 

Block ID 

Trace block code 

Length of block in longwords — 
Function code (see GBH definitions) 
ifab/irab address. 

Process I 

Sequence number. 

VBN requested. 

Address of caller. 

Caller’s caller. 


Function specific arguments 
NOTE: should be quadwords mult 
NOTE: should be quadwords mult 


iple t 
iple t 
ergusent flags (R3). 

BDB address. 

Use count from BDB. 

BOB buffer ID. 

BDB cache value. 

Status flags from BDB. 

Sequence number from BDB. 

Mode held in BLB. 


Lock ID from BLB. 
Sequence number from BLB. 
maintain quad alignment on header 


ese¢#e eee eee eee ee eee eens 


PAPA AAA AAA AA AAA AAO ONO ON NN 
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/* 
GBD structure definitions 
® 
oe Global Buffer Descriptor (GBD) 
/* There is a single GBD for every buffer in a global buffer 
/* section (used only with shared files). The GBD's themselves 
/* are in the section also and Linked from a queue header in 
the Global Buffer Header (GBH). 
w 
. w** WARNING = THIS STRUCTURE MUST BE QUADWORD ALIGNED *** 
® 
onerepete GBDDEF structure fill prefix GBDS$; 
FLINK Longword unsigned; /* Forward Link - Note: This is a self relative queue 
BLINK lLongword unsigned; /* Back Link 
BID byte unsigned; /* Block ID 
constant BID equals 19 prefix GBD tag $C; /* Block ID code for GBD 
BLN byte unsigned; /* Block length of GBD 
FLAGS OVERLAY union fill; 
FCAGS byte unsigned; /* Buffer status flags 
FLAGS BITS structure fill; : 
VALID bitfield mask; /* Buffer is valid. 
end FLAGS BITS; 
end FLAGS_OVERLAY; 
CACHE_VAL byte unsigned; /* Cache value of this bucket 
VBN Longword unsigned; /* VBN of bucket the buffer describes 
VBNSEQ Longword unsigned; /* VBN sequence number validity check 
LOCK_ID lLongword unsigned; /* Lock ID of system lock. 
NUMB word unsigned; /* Number of bytes in use 
SIZE word unsigned; /* Size of buffer in bytes 
REL_ADDR Longword unsigned; /* Address of buffer relative to GBH 
USECNT word unsigned; /* Accessor count for bucket 
REHIT_RD byte unsigned; /* Rehit by same process count. 
REHIT_LK byte unsigned; /* Rehit by same locker process. 
FILL_T Longword fill prefix GBDDEF tag $$; /* SPARE to maintain QUAD alignment. 
constant BLN equals . prefix GBD$ tag K; /* Length of Global Buffer Descriptor structure. 
- constan BLN equals . prefix GBD$ tag C; /* Length of Global Suffer Descriptor structure. 
e H 


end_module $GBDDEF ; 
module SBLBDEF ; 


c 
{ 
{ 
{ 
{ 
{ 
c 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
¢ 
{ 
{ 
c 
{ 
{ 
{ 
¢ 
{ 
{ 
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/t 
oc BLB field definitions 
a 
oe Bucket Lock Block (BLB) 
/* The BLB contains the argument List for the SYSSENQ system service 
os as well a pointer to the BDB it relates to and other status. 


aggregate SLBDEF structure fill prefix BLS$; 
SorreNK | . 


ongword unsigned; /* Link to next BLB 
BLNK Longword unsigned; /* Back Link 
BID byte unsigned; /* Block ID 
constant BID equais 16 prefix BLB tag $C; /* BLB code 
BLN Pr* unsigned: /* Block Length 
BLBFLGS OVERLAY union fill; 
BLBFLGS byte unsigned; /* Control flags for BLB 
BLBFLGS BITS structure fill; 
LOCR bitfield mask; /* Corresponds to CSH$V_LOCK 
NOWAIT bitfield mask; /* Same as CSHSV_NOWAIT 
NOREAD bitfield mask; /* Same as CSH$V_NOREAD 
NOBUFFER bitfield mask; /* Same as CSHSV_NOBUFFER 
IOLOCK bitfield mask; /* Lock mode for read/write 
DFW bitfield mask; /* This is lock for deferred write buffer 
WRITEBACK bitfield mask; /* The associated buffer must be written back 
end BLBFLGS BITS; 
end BLBFLGS_OVERLAY; 
MODEHELD byte unsigned; /* Mode of current lock held. 
BDB_ADDR Longword gre \anees /* BOB for which this lock is held 
OWNER Longword unsigned; /* Address of stream owning this lock 
VBN longword unsigned; /* VBN of bucket lock (resource name) 
RESDSC longword unsigned dimension 2; /* Resource name descriptor 
LKSTS word uns ligne 5 /* Lock status word 
FILL_1 werd fill prefix BLBDEF tag $$; /* reserved 
LOCK_ID longword unsigned; /* Lock 1D 
VALBCK_OVERLAY union fill; 
VALBLK longword unsigned dimension 4; /* Lock value block 
constant BLN equals . prefix BLBS tag K; /* Length of BLB 
constant BLN equals . prefix BLB$ tag (; /* Length of BLB 
VALSEQNO senquere unsigned; /* Sequence number part of value block 
end VALBLK_OVERLAY; 
end BLBDEF; 


end_module SBLBDEF ; 
module S$RJBDEF ; 


{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
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aggregate RJBDEF structure fill prefix RJB$; 
CHAN_OVERLAY union fill; 
HAN quadword unsigned; 
CHAN_FIELDS structure fill; 
UCHAN word unsigned; 
BICHAN word unsigned; 
AICHAN word unsigned; 
ATCHAN word unsigned; 
end CHAN FIELDS; 
end CHAN_OVERLAY; 
BID byte unsigned; 
constant BID equals 22 prefix RJB tag $C; 
BLN byte unsigned; 
FLAGS _OVERLAY union fill; 
FCAGS word unsigned; 
constant BLN equals . prefix RJB$ tag K; 
constant BLN equals . prefix RJB$ tag C; 
eam tt gtrysture fill; 
e 


t 
t 
t 
AT t 
OPEN b 
end FLAGS_OVERLAY; 
end RJBDEF ; 
end_module $RJBDEF ; 
module SMJBDEF ; 
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/t 
cS RJB Definitions 
t 
. RMS Journaling Block (RJB) 
/* This block contains the necessary control information to keep 
. track of the state of Journaling on this file 


/*Channel Block 


/* channel for recovery unit journal 
/* channel for before image journal 
/* channel for after image ournal 
/* channel for audit trail journal 


/*Block Id 
/*Block Length 


/*Flags word 
/tLength of RJB 
/tLength of RJB 


/*Set to indicate RU channel open 
/*Set to indicate BI channel open 
/*Set to indicate Al channel open 
/*Set to indicate AT channel open 
/tIndicates SOPEN mapping entry written 


=z 
= 
ia 


{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 


eggregete Ay MJBDEF strus ture fill prefix MJB$; 
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RMSINTSTR.SDL;1 

/* 

i. MJB field definitions 

oe Miscellaneous Journaling Buffer 

/* The MJB is used for writing miscellaneous journal entries, 
. for example, extend entries or audit-trail entries. 


ongword di mension 2 fill prefix MJBDEF tag $$; ts a PF 


BID Bree unsigned; 
constant BID equals 24 prefix MJB tag SC; 


BLN byte unsigned; /* 
FLAGS OVERLAY +m fill; 

FCAGS word unsigned; /* 
FLAGS BITS structure gees 

INIT bitt ield mask /* 

FORCE bittield mask; is 

® 

FILE bitfield m /* 

SYNCH_SHARE Sittield mask; is 


end FLAGS BITS; 
end FLAGS sOVERLAY; 
JNL byte Gn 


block length in longwords 


flags 

set if RJR overhead is initialized 

set if RJR is to be written thru to journal 
and not buffered by CJF gnee to WRITE_MJB) 
set if file operat on to journa 

oe file lock can't be released during 


set to CJF$_""jnl type’ as input to WRITE_MJB 


FILL_2 byte apt ae Fe 3 fill prefix MJBDEF tag $$; /* spare 


DESC _OVERLAY union fill; 
BESC 


uadword unsigne /* 
DESC_FIELDS structure, “HU: 
I ord unsigne /* 
aye aye ny 2 fill prefix MJBDEF tag 
POINTER longword unsigned; /* 
end OEE FIELDS; 
end DESC_OVERLAY; 
10SB EVERCAY 9) fill; 
OS8 uadword unsign /* 


1088 FIELDS. structure 9 tts 


FILL_4 byte dimension B fill prefix MUBDEF tag $$ 


RJR Tharacter Longen tag T; /t 
constant BLN equals . pre ix MUBS$ tag ¥ 
constant BLN equals . prefix MJB$ tag C 

end 10sB FIELDS; 
end 10SB OVERLAY; 


end MJBDEF ; 
end_module SMJBDEF ; 


RJR descriptor used in SWRITEJNL service 
size of RJR to write 
pointer to RJR 


IOSB to use in SWRITEJNL 


the journal record begins here 


PAPA AAAAAAAAAAAAPAAAAAAAAAAA AAA AAO 


Ene EQUIPMENT CORPORATION 
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